(ns util.os)

(defn get-os []
  (System/getProperty "os.name"))

(defn windows? []
  (re-matches #"(?i)^Windows.*" (get-os)))

(defn linux? []
  (= (get-os) "Linux"))

(defn get-os-arch []
  (System/getProperty "os.arch"))

(defn get-os-version []
  (System/getProperty "os.version"))

(defn get-os-arch []
  (System/getProperty "os.arch"))

(defn get-os-bits []
  (Integer/parseInt (System/getProperty "sun.arch.data.model")))
